'EQSlot will be from 1 to 5 (equipped item you're removing)
'these are inventory slots 21 to 25 but EQSlot will always be 1 to 5
Function Main(Player As Long, EQSlot As Long, ObjectNum As LONG) As LONG
   Main = Continue
End Function